home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.08 Aug 90 / LSObjectShell / AboutBox.p < prev    next >
Encoding:
Text File  |  1989-07-05  |  481 b   |  21 lines  |  [TEXT/PJMM]
  1. UNIT AboutBox;
  2. {***********************************}
  3. INTERFACE
  4.  
  5.     USES
  6.         MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, MacPrint, GlobalStuff;
  7.  
  8.     PROCEDURE DoAbout (vAboutID: Integer);
  9.  
  10. {***********************************}
  11. IMPLEMENTATION
  12.  
  13.     PROCEDURE DoAbout (vAboutID: Integer);
  14.     BEGIN
  15.         ParamText('Christian Stratowa', '', '', '');
  16.         CenterMyDialog('ALRT', vAboutID);
  17.         IF Alert(vAboutID, NIL) = OK THEN
  18.     END; {DoAbout}
  19.  
  20. END. {unit AboutBox}
  21. {***********************************}